home *** CD-ROM | disk | FTP | other *** search
/ The Very Best of Atari Inside / The Very Best of Atari Inside 1.iso / sharew / astronom / sternz11 / sternz11.gfa (.txt) < prev    next >
Encoding:
GFA-BASIC Atari  |  1986-02-05  |  25.2 KB  |  1,036 lines
  1. '  Sternzeit 1.0.2. (gfa 3.0)
  2. '     v. 3.1.91
  3. '  von  Richard Sandholzer
  4. '       Marktstr.9
  5. '     A-6850 DORNBIRN
  6. '
  7. DIM sterk%(120,2),sterna$(120),sterhell#(120)
  8. SETTIME "1:0:0","1.1.1991"
  9. IF NOT EXIST("geolng")
  10.   OPEN "o",#1,"geolng"
  11.   WRITE #1,9,44.7,47,25
  12.   CLOSE #1
  13. ENDIF
  14. OPEN "i",#1,"geolng"
  15. INPUT #1,geogr#,geomi#,geobrg#,geobrm#
  16. CLOSE #1
  17. geobeg:
  18. gm$="Stimmt die geographische  | Länge:   "+STR$(geogr#)+CHR$(248)+"  "+STR$(geomi#)+"' | Breite:  "+STR$(geobrg#)+CHR$(248)+" "+STR$(geobrm#)+"'"
  19. ALERT 2,gm$,1,"NEIN | JA |SPEICHER",dr#
  20. IF dr#=1
  21.   PRINT
  22.   PRINT
  23.   INPUT "     geographische Länge:   Grad,Minuten";geogr#,geominu#
  24.   PRINT
  25.   PRINT
  26.   INPUT "    geographische Breite:   Grad,Minuten";geobrg#,geobrm#
  27.   geomi#=MIN(59,geominu#)
  28.   GOTO geobeg
  29. ENDIF
  30. IF dr#=3
  31.   GOSUB geolspei
  32. ENDIF
  33. geol#=geogr#+geomi#/60
  34. ozmi#=(15-geol#)*4
  35. ozse#=TRUNC(60*FRAC(ozmi#))
  36. ozmi#=TRUNC(ozmi#)
  37. beginn:
  38. CLS
  39. m$=" Ist die Zeit und das Datum |  richtig eingestellt ?| Uhrzeit:  "+TIME$+"| Datum:  "+DATE$
  40. ALERT 2,m$,1," NEIN | JA ",wa#
  41. IF wa#=1
  42.   GOTO v1
  43. ELSE
  44.   GOTO v2
  45. ENDIF
  46. v1:
  47. PRINT
  48. PRINT
  49. INPUT "    UHRZEIT(MEZ) HH:MM:(SS)   ";czeit$
  50. PRINT
  51. PRINT
  52. INPUT "    DATUM   TT.MM.JJ     ";ctag$
  53. SETTIME czeit$,ctag$
  54. GOTO beginn
  55. v2:
  56. tag#=VAL(LEFT$(DATE$,2))
  57. monat#=VAL(MID$(DATE$,4,2))
  58. jahr#=VAL(RIGHT$(DATE$,2))
  59. DIM mon%(12)
  60. mon%(2)=31
  61. mon%(3)=59
  62. mon%(4)=90
  63. mon%(5)=120
  64. mon%(6)=151
  65. mon%(7)=181
  66. mon%(8)=212
  67. mon%(9)=243
  68. mon%(10)=273
  69. mon%(11)=304
  70. mon%(12)=334
  71. v#=1.00274           !sonnentag=v*sterntag
  72. auswahl1:
  73. DIM leiste$(49)
  74. RESTORE auswahl1
  75. FOR i#=0 TO 47
  76.   READ leiste$(i#)
  77.   EXIT IF leiste$(i#)="***"
  78. NEXT i#
  79. leiste$(i#)=""
  80. leiste$(i#+1)=""
  81. DATA desk,sternzeit 1.1 1991
  82. DATA ------------------------
  83. DATA 1,2,3,4,5,6,""
  84. DATA Zeiten,Uhrzeit(mez),Uhrz+Ortsz+Sternz,Sternzeit,neue Zeit,quit,""
  85. DATA Sternliste,Sterne im Süden +/-6 ,Sterne im Süden +/-3 ,""
  86. DATA Zeichnung,  N-Pol,  S-Pol,Übersicht,""
  87. DATA Suche ,Sternname,Sternbild,""
  88. DATA Verschieben, nach oben   N⇧ , nach unten  S⇩ , nach links  O⇦ , nach rechts W⇨,""
  89. DATA Horiz.+Ekliptik,  Horiz. Linie ,  Ekliptik ,  Mondbahn
  90. DATA ***
  91. CLS
  92. MENU leiste$()
  93. OPENW 0
  94. FOR k#=27 TO 34
  95.   MENU k#,2
  96. NEXT k#
  97. nume#=22
  98. GOSUB sternat4u
  99. ON MENU GOSUB wahl
  100. ON MENU KEY GOSUB taste
  101. DO
  102.   ON MENU
  103. LOOP
  104. PROCEDURE wahl
  105.   IF MENU(0)<>0
  106.     nume#=MENU(0)
  107.   ENDIF
  108.   ON (MENU(0)-10) GOSUB pzeit1,pzeit2,pzeit3anz,neuzeit,pend,e,e,stlist1,stlist2,e,e,sternatnpo,sternatsupo,sternat4u,e,e,sternsu,sternbild,e,e,aufschieber,abschieber,linkschieber,rechtschieber,e,e,horizon,ekliptik,mondbahn
  109.   MENU OFF
  110. RETURN
  111. PROCEDURE taste
  112.   ON ((MENU(14) DIV 700)-25) GOSUB aufschieber,linkschieber,rechtschieber,abschieber
  113.   MENU OFF
  114. RETURN
  115. PROCEDURE geolspei
  116.   OPEN "o",#1,"geolng"
  117.   WRITE #1,geogr#,geomi#,geobrg#,geobrm#
  118.   CLOSE #1
  119. RETURN
  120. PROCEDURE zeitvar
  121.   stund#=VAL(LEFT$(TIME$,2))
  122.   min#=VAL(MID$(TIME$,4,2))
  123.   secu#=VAL(RIGHT$(TIME$,2))
  124. RETURN
  125. PROCEDURE pzeit1
  126.   FOR k%=27 TO 39
  127.     MENU k%,2
  128.   NEXT k%
  129.   DO
  130.     PRINT AT(16,3);"Uhrzeit: MEZ ";somz$,TIME$
  131.     EXIT IF MOUSEK=2 OR MOUSEY>500
  132.     VSYNC
  133.   LOOP
  134. RETURN
  135. PROCEDURE pzeit2
  136.   FOR i%=27 TO 40
  137.     MENU i%,2
  138.   NEXT i%
  139.   PRINT AT(16,3);"Uhrzeit: MEZ ";somz$,TIME$
  140.   VSYNC
  141.   GOSUB ortszeit
  142.   PRINT AT(16,6);"Ortszeit:"
  143.   PRINT AT(32,6);USING "##",stund#;
  144.   PRINT ":";
  145.   PRINT AT(35,6);USING "##",pmi#;
  146.   PRINT ":"
  147.   PRINT AT(38,6);USING "##",pse#
  148.   GOSUB pzeit3
  149.   PRINT AT(16,9);"Sternzeit:"
  150.   PRINT AT(32,9);USING "##",sterst#;
  151.   PRINT ":"
  152.   PRINT AT(35,9);USING "##",stermi#;
  153.   PRINT ":"
  154.   PRINT AT(38,9);USING "##",TRUNC(sternsec#)
  155. RETURN
  156. PROCEDURE ortszeit
  157.   GOSUB zeitvar
  158.   pse#=secu#-ozse#
  159.   WHILE pse#<0
  160.     pse#=pse#+60
  161.     min#=min#-1
  162.   WEND
  163.   WHILE pse#>59
  164.     pse#=pse#-60
  165.     min#=min#+1
  166.   WEND
  167.   pmi#=min#-ozmi#
  168.   WHILE pmi#<0
  169.     pmi#=pmi#+60
  170.     stund#=stund#-1
  171.   WEND
  172.   WHILE pmi#>59
  173.     pmi#=pmi#-60
  174.     stund#=stund#+1
  175.   WEND
  176.   IF mon%(monat#)+tag#>=90 AND mon%(monat#)+tag#<272  !( AND monat+tag>34 AND monat+tag<35)sommerzeit somit von april bis sept incl.
  177.     stund#=stund#+1           ! s o m m e r z e i t 31.3-29.9.91
  178.     somz$="S"
  179.   ELSE
  180.     somz$="W"
  181.   ENDIF
  182.   WHILE stund#<0
  183.     stund#=stund#+24
  184.   WEND
  185.   stund#=stund# MOD 24
  186. RETURN
  187. PROCEDURE pzeit3
  188.   GOSUB ortszeit
  189.   jahrtag%=tag#+mon%(monat#)-1                       !0 uhr 1.1.88   6 39,33 strnz. (ortszeit berücks.)
  190.   jahrtag%=jahrtag%+365*(jahr#-88)
  191.   IF monat#>1 AND jahr#>=88
  192.     INC jahrtag%                      ! schaltjahr
  193.   ENDIF
  194.   jahrsec#=((jahrtag%*235.909+pse#)+(((stund#)*60+pmi#)*60))*v#+(6*3600+39.5*60)
  195.   jahrsec#=jahrsec# MOD (24*3600)
  196.   IF jahrsec#<0
  197.     jahrsec#=jahrsec#+(24*3600)
  198.   ENDIF
  199.   jadu#=jahrsec#/3600
  200.   sterst#=TRUNC(jadu#)
  201.   sterst#=sterst# MOD 24
  202.   jadu#=FRAC(jadu#)*60
  203.   stermi#=TRUNC(jadu#)
  204.   sternsec#=TRUNC(FRAC(jadu#)*60)
  205.   sterku#=sterst#+(stermi#+sternsec#/60)/60
  206. RETURN
  207. PROCEDURE pzeit3anz
  208.   GOSUB pzeit3
  209.   FOR k#=27 TO 39
  210.     MENU k#,2
  211.   NEXT k#
  212.   DO
  213.     GOSUB pzeit3
  214.     PRINT AT(16,9);"Sternzeit:"
  215.     PRINT AT(32,9);USING "##",sterst#;
  216.     PRINT ":"
  217.     PRINT AT(35,9);USING "##",stermi#;
  218.     PRINT ":"
  219.     PRINT AT(38,9);USING "##",TRUNC(sternsec#)
  220.     EXIT IF MOUSEK=2 OR MOUSEY>500
  221.     VSYNC
  222.   LOOP
  223. RETURN
  224. PROCEDURE neuzeit
  225.   CLS
  226.   m$=" Ist die Zeit und das Datum |  richtig eingestellt ?| Uhrzeit:  "+TIME$+"| Datum:  "+DATE$
  227.   ALERT 2,m$,1," NEIN | JA ",wa#
  228.   IF wa#=1
  229.     GOTO neuv1
  230.   ELSE
  231.     GOTO neuv2
  232.   ENDIF
  233. neuv1:
  234.   PRINT
  235.   PRINT
  236.   INPUT "    UHRZEIT(MEZ) HH:MM:(SS)   ";czeit$
  237.   PRINT
  238.   PRINT
  239.   INPUT "    DATUM   TT.MM.JJ     ";ctag$
  240.   SETTIME czeit$,ctag$
  241.   GOSUB neuzeit
  242. neuv2:
  243.   tag#=VAL(LEFT$(DATE$,2))
  244.   monat#=VAL(MID$(DATE$,4,2))
  245.   jahr#=VAL(RIGHT$(DATE$,2))
  246. RETURN
  247. PROCEDURE pend
  248.   SETCOLOR 0,1
  249.   MENU KILL
  250.   PRINT
  251.   CLS
  252.   CLOSEW 0
  253.   EDIT
  254. RETURN
  255. PROCEDURE stlist1
  256.   GOSUB pzeit3
  257.   CLS
  258.   FOR i%=27 TO 39
  259.     MENU i%,2
  260.   NEXT i%
  261.   SETCOLOR 0,1
  262.   ALERT 2," mit Ausgabe über den Drucker",2," JA | NEIN ",druck#
  263.   IF druck#=1
  264.     OPEN "",#7,"lst:"
  265.   ENDIF
  266.   RESTORE sterndaten
  267.   FULLW 1
  268.   ueberschr$="  NAME       STUNDENWINKEL        DEKLINATION        HELLIGKEIT           "
  269.   TITLEW #1,ueberschr$
  270.   IF druck#=1
  271.     PRINT #7;ueberschr$
  272.     PRINT #7
  273.   ENDIF
  274.   DO
  275.   weiter:
  276.     READ nami$,rekst#,rekm#,dekg#,dekm#,hell#
  277.     EXIT IF nami$="    "
  278.     stuw#=sterst#+(sternsec#/60+stermi#)/60-rekst#-rekm#/60
  279.     IF ABS(stuw#)>12
  280.       ADD stuw#,24*SGN(stuw#)*(-1)
  281.     ENDIF
  282.     IF ABS(stuw#)>6-gre3#
  283.       GOTO weiter
  284.     ENDIF
  285.     stuwst%=TRUNC(stuw#)
  286.     stuwmi%=TRUNC(FRAC(stuw#)*60)
  287.     PRINT nami$,  !Stuwst%;":";Stuwmi%,Dekg,Hell
  288.     PRINT USING "-#",stuwst%;
  289.     PRINT ":";
  290.     PRINT USING "-##",stuwmi%;
  291.     PRINT ,USING "-##",dekg#;
  292.     PRINT ,hell#
  293.     IF druck#=1
  294.       PRINT #7;nami$,  !Stuwst%;":";Stuwmi%,Dekg,Hell
  295.       PRINT #7;USING "-#",stuwst%;
  296.       PRINT #7;":";
  297.       PRINT #7;USING "-##",stuwmi%;
  298.       PRINT #7;''''''''''''''''
  299.       PRINT #7,USING "-##",dekg#;
  300.       PRINT #7;'''''''''''''''
  301.       PRINT #7,hell#
  302.     ENDIF
  303.     EXIT IF MOUSEK=2
  304.     IF MOUSEK=1
  305.       PAUSE 50
  306.       DO
  307.         EXIT IF MOUSEK
  308.       LOOP
  309.     ENDIF
  310.   LOOP
  311.   IF druck#=1
  312.     PRINT #7
  313.     PRINT #7
  314.     PRINT #7;"Uhrzeit: ";TIME$,,
  315.     GOSUB pzeit3
  316.     PRINT #7;"Sternzeit:";';
  317.     PRINT #7;USING "##",sterst#;
  318.     PRINT #7;":";
  319.     PRINT #7;USING "##",stermi#;
  320.     PRINT #7;":";
  321.     PRINT #7;USING "##",TRUNC(sternsec#)
  322.   ENDIF
  323.   DO
  324.     EXIT IF MOUSEK
  325.     EXIT IF MOUSEY>500
  326.   LOOP
  327.   CLOSEW 1
  328.   OPENW 0
  329.   nami$="2"
  330.   gre3#=0
  331.   CLOSE
  332. RETURN
  333. PROCEDURE stlist2
  334.   FOR i%=27 TO 39
  335.     MENU i%,2
  336.   NEXT i%
  337.   gre3#=3
  338.   GOSUB stlist1
  339. RETURN
  340. PROCEDURE sternat3
  341.   z#=1
  342.   fahne#=0
  343.   GOSUB pzeit3
  344.   CLS
  345.   MENU 27,3
  346.   MENU 28,3
  347.   MENU 34,3
  348.   MENU 31,3
  349.   MENU 32,3
  350.   MENU 33,3
  351.   MENU 39,2
  352.   MENU 37,2
  353.   MENU 38,2
  354.   SETCOLOR 0,0
  355.   ARRAYFILL sterk%(),-1
  356.   RESTORE sterndaten
  357.   DO
  358.   kehrtmarsch:
  359.     READ nami$,rekst#,rekm#,dekg#,dekm#,hell#
  360.     EXIT IF nami$="    "
  361.     stuw#=sterku#-rekst#-rekm#/60
  362.     IF ABS(stuw#)>12
  363.       ADD stuw#,24*SGN(stuw#)*(-1)
  364.     ENDIF
  365.     IF (stuw#)>(a%-120)/33 OR stuw#<(a%-320)/33 OR dekg#>(190-b%)/2.2 OR dekg#<(190-(b%+125))/2.2
  366.       GOTO kehrtmarsch
  367.     ENDIF
  368.     DEFLINE 3,6-(MIN(5,TRUNC(hell#))),2,2                    !sternb1$,sternb2$,....
  369.     kx#=(stuw#-(a%-320)/33)*100
  370.     ky#=((190-b%)/2.2-(dekg#+dekm#/60))*6.6666
  371.     PLOT kx#,ky#
  372.     sterk%(z#,1)=kx#
  373.     sterk%(z#,2)=ky#
  374.     sterna$(z#)=nami$
  375.     sterhell#(z#)=hell#
  376.     INC z#
  377.   LOOP
  378.   DEFLINE 1,1
  379.   GOSUB kreiskreuz((-(a%-320)/33)*100,((190-b%)/2.2)*6.666)
  380. RETURN
  381. PROCEDURE aufschieber
  382.   IF nume#>26 AND nume#<35
  383.     b%=MAX(b%-62,55)
  384.     GOSUB sternat3
  385.   ENDIF
  386. RETURN
  387. PROCEDURE abschieber
  388.   IF nume#>26 AND nume#<35
  389.     b%=MIN(b%+62,200)
  390.     GOSUB sternat3
  391.   ENDIF
  392. RETURN
  393. PROCEDURE linkschieber
  394.   IF nume#>23 AND nume#<35
  395.     IF fahne#=1
  396.       IF schx#=-80
  397.         schx#=0
  398.       ELSE
  399.         schx#=80
  400.       ENDIF
  401.       GOSUB sternat4u
  402.     ELSE
  403.       a%=MAX(a%-100,0)
  404.       GOSUB sternat3
  405.     ENDIF
  406.   ENDIF
  407. RETURN
  408. PROCEDURE rechtschieber
  409.   IF nume#>23 AND nume#<35
  410.     IF fahne#=1
  411.       IF schx#=80
  412.         schx#=0
  413.       ELSE
  414.         schx#=-80
  415.       ENDIF
  416.       GOSUB sternat4u
  417.     ELSE
  418.       a%=MIN(a%+100,440)
  419.       GOSUB sternat3
  420.     ENDIF
  421.   ENDIF
  422. RETURN
  423. PROCEDURE sternatnpo
  424.   z#=1
  425.   GOSUB pzeit3
  426.   CLS
  427.   MENU 28,3
  428.   MENU 27,3
  429.   MENU 32,2
  430.   MENU 33,2
  431.   MENU 34,2
  432.   MENU 35,2
  433.   MENU 38,2
  434.   MENU 39,2
  435.   MENU 31,2
  436.   SETCOLOR 0,0
  437.   RESTORE sterndaten
  438.   DO
  439.   kema:
  440.     READ nami$,rekst#,rekm#,dekg#,dekm#,hell#
  441.     EXIT IF nami$="    "
  442.     stuw#=sterku#-rekst#-rekm#/60
  443.     IF (90-dekg#)>53
  444.       GOTO kema
  445.     ENDIF
  446.     DEFLINE 3,6-(TRUNC(hell#)),2,2
  447.     kx#=320+(90-dekg#)*(SIN(stuw#*15*PI/180))/0.1406
  448.     ky#=195+(90-dekg#)*(COS(stuw#*15*PI/180))/0.1406
  449.     PLOT kx#,ky#
  450.     sterk%(z#,1)=kx#
  451.     sterk%(z#,2)=ky#
  452.     sterna$(z#)=nami$
  453.     sterhell#(z#)=hell#
  454.     INC z#
  455.   LOOP
  456.   nami$="2"
  457.   GOSUB netz
  458.   TEXT 315,370,"0"
  459.   TEXT 15,200,"-6"
  460.   TEXT 615,200,"+6"
  461.   GOSUB kreiskreuz(320,195)
  462.   TEXT 317,200,"N"
  463. RETURN
  464. PROCEDURE sternatsupo
  465.   z#=1
  466.   GOSUB pzeit3
  467.   CLS
  468.   MENU 27,3
  469.   MENU 28,3
  470.   FOR k%=31 TO 39
  471.     MENU k%,2
  472.   NEXT k%
  473.   SETCOLOR 0,0
  474.   RESTORE sterndaten
  475.   DO
  476.   skema:
  477.     READ nami$,rekst#,rekm#,dekg#,dekm#,hell#
  478.     EXIT IF nami$="    "
  479.     stuw#=sterku#-rekst#-rekm#/60
  480.     IF dekg#>-53
  481.       GOTO skema
  482.     ENDIF
  483.     DEFLINE 3,6-(TRUNC(hell#)),2,2
  484.     kx#=320+(90+dekg#)*(SIN(stuw#*15*PI/180))/0.1406
  485.     ky#=195-(90+dekg#)*(COS(stuw#*15*PI/180))/0.1406
  486.     PLOT kx#,ky#
  487.     sterk%(z#,1)=kx#
  488.     sterk%(z#,2)=ky#
  489.     sterna$(z#)=nami$
  490.     sterhell#(z#)=hell#
  491.     INC z#
  492.   LOOP
  493.   nami$="2"
  494.   GOSUB netz
  495.   GOSUB kreiskreuz(320,195)
  496.   TEXT 317,200,"S"
  497. RETURN
  498. PROCEDURE sternat4u
  499.   MENU 27,2
  500.   MENU 28,2
  501.   MENU 32,2
  502.   MENU 31,2
  503.   FOR k%=33 TO 39
  504.     MENU k%,3
  505.   NEXT k%
  506.   fahne#=1
  507.   z#=1
  508.   GOSUB pzeit3
  509.   CLS
  510.   z#=2
  511.   SETCOLOR 0,0
  512.   RESTORE sterndaten
  513.   DO
  514.   kehr:
  515.     READ nami$,rekst#,rekm#,dekg#,dekm#,hell#
  516.     EXIT IF nami$="    "
  517.     IF hell#>3
  518.       GOTO kehr
  519.     ENDIF
  520.     stuw#=sterku#-rekst#-rekm#/60
  521.     IF ABS(stuw#)>12
  522.       ADD stuw#,24*SGN(stuw#)*(-1)
  523.     ENDIF
  524.     DEFLINE 3,6-(TRUNC(hell#)),2,2                    !sternb1$,sternb2$,....
  525.     kx#=320+schx#+stuw#*33
  526.     ky#=190-(dekg#+dekm#/60)*2.2     !pro grad 2.2 Punkte
  527.     PLOT kx#,ky#
  528.   LOOP
  529.   GOSUB netz
  530.   CIRCLE 320+schx#,190,8
  531.   DRAW 310+schx#,190 TO 330+schx#,190
  532.   DRAW 320+schx#,180 TO 320+schx#,200
  533.   TEXT 316+schx#,370,"S"
  534.   TEXT 316+schx#,15,"N"
  535.   TEXT 5,370,"O"
  536.   TEXT 620,370,"W"
  537.   TEXT (-45)+schx#,380," 12"
  538.   TEXT 45+schx#,380,"-9"
  539.   TEXT 135+schx#,380,"-6"
  540.   TEXT 225+schx#,380,"-3"
  541.   TEXT 405+schx#,380,"+3"
  542.   TEXT 495+schx#,380,"+6"
  543.   TEXT 585+schx#,380,"+9"
  544.   TEXT 675+schx#,380," 12"
  545.   IF horiz#=1
  546.     GOSUB horizon
  547.   ENDIF
  548.   IF ekl#=1
  549.     GOSUB ekliptik
  550.   ENDIF
  551.   IF moba#=1
  552.     GOSUB mondbahn
  553.   ENDIF
  554.   GRAPHMODE 3
  555.   HIDEM
  556.   DO
  557.     by%=MIN(MOUSEY,200)
  558.     b%=MAX(by%,55)
  559.     a%=MIN(MOUSEX,439)
  560.     BOX a%,b%,a%+200,b%+125
  561.     BOX a%,b%,a%+200,b%+125
  562.     EXIT IF MOUSEK
  563.     EXIT IF MOUSEY<0
  564.   LOOP
  565.   a%=a%-schx#
  566.   SHOWM
  567.   GRAPHMODE 1
  568.   nume#=31
  569.   ON MOUSEK GOSUB sternat3
  570.   IF MOUSEK=2
  571.     DEFMOUSE 5
  572.     WHILE MOUSEK
  573.     WEND
  574.     PRINT AT(1,2);"Rek.:       Std."
  575.     PRINT AT(70,2);"dek.:"
  576.     DO
  577.       EXIT IF MOUSEY>400
  578.       rekzeig#=(sterku#+(320-MOUSEX+schx#)/33) MOD 24
  579.       SHOWM
  580.       IF rekzeig#<0
  581.         rekzeig#=rekzeig#+24
  582.       ENDIF
  583.       PRINT AT(7,2);USING "##.##",rekzeig#
  584.       PRINT AT(75,2);USING "-##.##",(190-MOUSEY)/2.2
  585.       EXIT IF MOUSEK OR MOUSEY<0
  586.       SHOWM
  587.     LOOP
  588.   ENDIF
  589.   DEFMOUSE 0
  590. RETURN
  591. PROCEDURE sternsu
  592.   DEFMOUSE 3
  593.   DO
  594.     MOUSE mx#,my#,mk#
  595.     IF mk#=1
  596.       FOR f#=1 TO z#
  597.         IF ABS(mx#-sterk%(f#,1))<3
  598.           IF ABS(my#-sterk%(f#,2))<3
  599.             IF a#=1
  600.               GOSUB bildblink
  601.             ELSE
  602.               GOSUB blinki
  603.             ENDIF
  604.           ENDIF
  605.         ENDIF
  606.         EXIT IF mk#=2 !sonst rechte maustaste lange drücken
  607.       NEXT f#
  608.     ENDIF
  609.     EXIT IF mk#=2
  610.   LOOP
  611.   DEFMOUSE 0
  612. RETURN
  613. PROCEDURE blinki
  614.   DEFLINE 1,2,2,2
  615.   SOUND 1,12,#80,3
  616.   SOUND 1,0,0
  617.   PRINT AT(60,1);sterna$(f#),sterhell#(f#)''
  618. RETURN
  619. PROCEDURE sternbild
  620.   a#=1
  621.   GOSUB sternsu
  622. RETURN
  623. PROCEDURE bildblink
  624.   PRINT AT(60,1);LEFT$(sterna$(f#),8)'','''''
  625.   DO
  626.     MOUSE mx#,my#,mk#
  627.     IF mk#=2
  628.       far#=1
  629.       a#=0
  630.     ENDIF
  631.     COLOR far#
  632.     FOR i#=1 TO z#
  633.       IF LEFT$(sterna$(i#),8)=LEFT$(sterna$(f#),8)
  634.         DEFLINE 1,6-TRUNC(sterhell#(i#)),2,2
  635.         PLOT sterk%(i#,1),sterk%(i#,2)
  636.       ENDIF
  637.     NEXT i#
  638.     EXIT IF mk#=2
  639.     IF far#=0
  640.       far#=1
  641.     ELSE
  642.       far#=0
  643.     ENDIF
  644.   LOOP
  645. RETURN
  646. PROCEDURE netz
  647.   DEFLINE 1,1,0,0
  648.   DRAW 320+schx#,0 TO 320+schx#,10
  649.   DRAW 0,190 TO 10,190
  650.   DRAW 320+schx#,370 TO 320+schx#,400
  651.   DRAW 630,190 TO 640,190
  652. RETURN
  653. PROCEDURE kreiskreuz(px#,py#)
  654.   CIRCLE px#,py#,12
  655.   DRAW px#-20,py# TO px#+20,py#
  656.   DRAW px#,py#-20 TO px#,py#+20
  657. RETURN
  658. PROCEDURE horizon
  659.   IF MENU(0)=37
  660.     IF horiz#=0
  661.       MENU 37,1
  662.       horiz#=1
  663.     ELSE
  664.       MENU 37,o#
  665.       horiz#=0
  666.       COLOR 0
  667.     ENDIF
  668.   ENDIF
  669.   geobrzei#=(geobrg#+geobrm#/60-3.6363)*2.2
  670.   DEFLINE 3
  671.   FOR ho%=-80 TO 720 STEP 4
  672.     PLOT ho%+schx#,-COS((ho%+76)*(2*PI/792))*geobrzei#+190
  673.   NEXT ho%
  674.   COLOR 1
  675.   DEFLINE 1
  676. RETURN
  677. PROCEDURE ekliptik
  678.   IF MENU(0)=38
  679.     IF ekl#=0
  680.       MENU 38,1
  681.       ekl#=1
  682.     ELSE
  683.       MENU 38,0
  684.       ekl#=0
  685.       COLOR 0
  686.     ENDIF
  687.   ENDIF
  688.   FOR ek%=-80 TO 720 STEP 3
  689.     PLOT ek%+schx#,-SIN((((sterku#+9.69696-ek%/33)) MOD 24)*(2*PI/24))*23.45*2.2+190           !neigung ekl 23,45 gr
  690.   NEXT ek%
  691.   COLOR 1
  692. RETURN
  693. PROCEDURE mondbahn
  694.   IF MENU(0)=39
  695.     IF moba#=0
  696.       MENU 39,1
  697.       moba#=1
  698.     ELSE
  699.       MENU 39,0
  700.       moba#=0
  701.       COLOR 0
  702.     ENDIF
  703.   ENDIF
  704.   FOR ek%=-80 TO 720 STEP 4
  705.     PLOT ek%+schx#,190-SIN((((sterku#+9.69696-ek%/33)) MOD 24)*(2*PI/24))*23.45*2.2-SIN((sterku#+9.69696-ek%/33+1.06+0.107449*(monat#-1))*(PI/12))*5.14539*2.2         !neigung mondbahn-eklip.5.1453 gr
  706.   NEXT ek%
  707.   COLOR 1
  708. RETURN
  709. .l-
  710. sterndaten:
  711. DATA ANDROMED a,0,8.4,29,6,2.02
  712. DATA CASSIOPE b,0,9.2,59,9,2.25
  713. DATA HYDRUS   b,0,25.75,-77,-15,2.8
  714. DATA PHOENIX  a,0,26.3,-42,-18,2.4
  715. DATA ANDROMED d,0,39.3,30,52,3.2
  716. DATA CASSIOPE a,0,40.6,56,33,2.2
  717. DATA ANDROMEDNE,0,40,41,0,3.5
  718. DATA CETI     b,0,43.6,-18,0,2.04
  719. DATA CASSIOPE e,0,49.1,57,49,3.45
  720. DATA CASSIOPE c,0,56.7,60,43,2.65
  721. DATA PHOENIX  b,1,6.083,-46,-43,3.3
  722. DATA ANDROMED b,1,9.75,35,37,2.03
  723. DATA CASSIOPE d,1,25.833,60,14,2.68
  724. DATA PHOENIX  c,1,28.33,-43,-19,3.4
  725. DATA ERIDANUS a,1,37.7,-57,-15,0.47
  726. DATA ERIDANUS P,1,37.9,-56,-27,6
  727. DATA CETI     t,1,44.067,-15,-56,3.5
  728. DATA CETI     e,1,51.5,-10,-11,3.44
  729. DATA CASSIOPE e,1,54.4,63,41,3.38
  730. DATA ARIES    b,1,54.66,20,48,2.65
  731. DATA HYDRUS   a,1,58.75,-61,-34,2.86
  732. DATA PISCIUM  a,2,2.1,2,46,3.9
  733. DATA ANDROMED c,2,3.9,42,20,2.28
  734. DATA ARIES    a,2,7.17,23,27,2.0
  735. DATA TRIANGUL b,2,9.55,34,59,3.0
  736. DATA CETI     o,2,19.35,-2,-59,2
  737. DATA URSA MI. a,2,31.2,89,15,2.5
  738. DATA CETI     c,2,43.3,3,14,3.47
  739. DATA PERSI    t,2,54.28,52,46,3.09
  740. DATA ERIDANUS f,2,58.25,-40,-18,3.42
  741. DATA CETI     a,3,2.3,4,6,2.52
  742. DATA PERSI    c,3,4.8,53,30,2.9
  743. DATA PERSI    r,3,5.2,38,50,3.2
  744. DATA PERSI    b,3,8.2,40,58,2.2
  745. DATA PERSI    a,3,24.2,49,52,1.8
  746. DATA PERSI    d,3,42.9,47,47,3
  747. DATA PERSI    g,3,54.2,31,53,2.9
  748. DATA HYDRUS   c,3,47.22,-47,-15,3.24
  749. DATA PERSI    e,3,57.9,40,1,2.88
  750. DATA ERIDANUS c,3,58.2,-13,-30,2.96
  751. DATA ERIDANUSo2,4,12.96,-7,43.8,4.48
  752. DATA RETICULU a,4,14.4,-62,-28,3.34
  753. DATA TAURUS   f,4,28.66,15,52,3.41
  754. DATA TAURUS   a,4,35.9,16,30,0.86
  755. DATA DORADO   a,4,34,-55,-3,3.26
  756. DATA ORION    p,4,49.88,6,57,3.19
  757. DATA AURIGA   i,4,57,33,9,2.66
  758. DATA AURIGA   e,5,1.96,43,50,2.99
  759. DATA CAMELOPA b,5,3.5,60,26,4.2
  760. DATA AURIGA   e,5,6.5,41,14,3.17
  761. DATA LEPUS    e,5,5.47,-22,-22,3.18
  762. DATA ERIDANUS b,5,7.87,-5,-5,2.8
  763. DATA LEPUS    m,5,12.93,-16,-12,3.28
  764. DATA ORION    t,5,15,-6,-54,3.7
  765. DATA AURIGA   a,5,16.7,46,1,0.1
  766. DATA ORION    b,5,14.53,-8,-12,0.08
  767. DATA ORION    e,5,24.5,-2,-23,3.35
  768. DATA ORION    c,5,25,6,21,1.6
  769. DATA TAURUS   b,5,26.2,28,37,1.6
  770. DATA LEPUS    b,5,28.25,-20,-45,2.84
  771. DATA ORION    d,5,32.02,0,-18,2.2
  772. DATA ORION    l,5,32,9,54,3.5
  773. DATA LEPUS    a,5,32.7,-17,-49,2.7
  774. DATA ORION   NE,5,33,-5,-24,2.9
  775. DATA ORION    i,5,35.43,-5,-55,2.77
  776. DATA ORION    e,5,36.12,-1,-12,1.7
  777. DATA TAURUS   g,5,37.7,21,9,3
  778. DATA DORADO   b,5,33.6,-63,-29,3.4
  779. DATA ORION    g,5,40.78,-1,-57,2.05
  780. DATA COLUMBA  a,5,39.65,-34,-5,2.63
  781. DATA ORION    k,5,47.77,-9,-40,2.04
  782. DATA COLUMBA  b,5,50.97,-35,-46,3.11
  783. DATA ORION    a,5,55.18,7,24,0.8
  784. DATA AURIGA   b,5,59.53,44,57,1.9
  785. DATA AURIGA   f,5,59.7,37,12,2.69
  786. DATA GEMINI   e,6,14.88,22,30,3.2
  787. DATA CANIS MA g,6,20.3,-30,-4,3.02
  788. DATA GEMINI   m,6,22.96,22,31,2.97
  789. DATA CANIS MA b,6,22.7,-17,-57,1.98
  790. DATA CARINA   a,6,23.95,-52,-41,-0.73
  791. DATA GEMINI   c,6,37.7,16,24,1.93
  792. DATA PUPPIS   n,6,37.76,-43,-11,3.17
  793. DATA GEMINI   e,6,43.93,25,8,3.08
  794. DATA GEMINI   x,6,45.3,12,54,3.37
  795. DATA CANIS MA a,6,45.15,-16,-43,-1.47
  796. DATA PICTOR   a,6,48.2,-61,-56,3.26
  797. DATA PUPIS    t,6,49.93,-50,-37,2.92
  798. DATA CANIS MA e,6,58.6,-28,-58,1.5
  799. DATA CANIS MA s,7,1.7,-27,-56,3.46
  800. DATA CANIS MA o,7,3.03,-23,-50,3.04
  801. DATA CANIS MA d,7,8.4,-26,-24,1.84
  802. DATA PUPIS    l,7,13.53,-44,-39,3.1
  803. DATA PUPIS    p,7,17.15,-37,-6,2.7
  804. DATA CANIS MA e,7,24.1,-29,-18,2.4
  805. DATA CANIS MI b,7,27.15,8,17,2.84
  806. DATA PUPIS    s,7,29.2,-43,-18,3.24
  807. DATA GEMINI   a,7,34.6,31,53,2.85
  808. DATA CANIS MI a,7,39.3,5,14,0.34
  809. DATA GEMINI   b,7,45.3,28,1,1.15
  810. DATA PUPIS    x,7,49.3,-24,-52,3.34
  811. DATA CARINA   1,7,56.8,-52,-59,3.46
  812. DATA PUPIS    g,8,3.6,-40,0,2.25
  813. DATA PUPIS    r,8,7.55,-24,-18,2.88
  814. DATA cnc AB    ,8,9.3,17,48,5.7
  815. DATA HYDRA AB  ,8,44.2,6,36,3.8
  816. DATA VELA     c,8,9.53,-47,-21,1.82
  817. DATA CARINA   c,8,22.5,-59,-30,1.85
  818. DATA URSA MA. o,8,30.28,60,43,3.36
  819. DATA VELA     d,8,44.7,-54,-43,1.95
  820. DATA HYDRA    g,8,55.4,5,57,3.12
  821. DATA URSA MA. i,8,59.2,48,2,3.14
  822. DATA VELA     l,9,8,-43,-26,2.3
  823. DATA CARINA   2,9,10.95,-58,-58,3.43
  824. DATA sig 1321  ,9,11,52,55,8.1
  825. DATA CARINA   b,9,13.2,-69,-43,1.67
  826. DATA CARINA   i,9,17.1,-59,-16,2.24
  827. DATA LYNX     a,9,21.05,34,24,3.14
  828. DATA VELA     k,9,22.1,-55,-1,2.49
  829. DATA HYDRA    a,9,27.6,-8,-40,1.99
  830. DATA URSA MA. f,9,32.85,51,41,3.18
  831. DATA VELA     n,9,31.2,-57,-2,3.12
  832. DATA LEO      e,9,45.85,23,46,2.96
  833. DATA CARINA   3,9,45.25,-62,-31,3.4
  834. DATA CARINA   y,9,47.1,-65,-4,3.15
  835. DATA LEO      e,10,7.34,16,46,3.48
  836. DATA +50g 1725 ,10,8.32,49,42.5,6.59
  837. DATA LEO      a,10,8.6,11,58,1.36
  838. DATA LEO      g,10,16.7,23,25,3.43
  839. DATA URSA MA. l,10,17.1,42,55,3.45
  840. DATA CARINA   4,10,13.75,-70,-2,3.31
  841. DATA CARINA   5,10,17.1,-61,-20,3.44
  842. DATA LEO     c1,10,20,19,51,2.61
  843. DATA URSA MA. m,10,22.3,41,30,3.04
  844. DATA CARINA   f,10,42.95,-64,-23,2.76
  845. DATA CARINA   e,10,45.07,-59,-42,-1
  846. DATA VELA     m,10,46.77,-49,-26,2.68
  847. DATA HYDRA    n,10,49.6,-16,-11,3.12
  848. DATA URSA MA. b,11,1.85,56,23,2.36
  849. DATA URSA MA. a,11,3.73,61,45,1.79
  850. DATA URSA MA.ps,11,9.67,44,29,3.01
  851. DATA LEO      d,11,14.1,20,31,2.55
  852. DATA LEO      f,11,14.25,15,26,3.31
  853. DATA URSA MA.ch,11,15,31,49,4.3
  854. DATA URSA MA. n,11,18.5,33,5,3.48
  855. DATA CENTAURU l,11,35.8,-63,-1,3.12
  856. DATA LEO      b,11,49.07,14,34,2.14
  857. DATA URSA MA. c,11,53.8,53,42,2.44
  858. DATA CENTAURU d,12,8.35,-50,-43,2.88
  859. DATA CORVUS   e,12,10.13,-22,-37,3.0
  860. DATA CRUX     d,12,15.15,-58,-45,2.82
  861. DATA URSA MA. d,12,15.43,57,2,3.31
  862. DATA CORVUS   c,12,15.8,-17,-32,2.6
  863. DATA CRUX    a1,12,26.6,-63,-6,1.58
  864. DATA CORVUS   d,12,29.51,-16,-31,2.95
  865. DATA CRUX     c,12,31.15,-56,-7,1.62
  866. DATA CORVUS   b,12,34.4,-23,-24,2.66
  867. DATA MUSCA    a,12,37.2,-69,-8,2.71
  868. DATA VIRGO    c,12,39,-1,-11,3.5
  869. DATA CENTAURU c,12,41.5,-48,-58,2.16
  870. DATA MUSCA    b,12,46.3,-68,-7,3.04
  871. DATA CRUX     b,12,47.73,-59,-42,1.24
  872. DATA URSA MA. e,12,54.01,55,57,1.76
  873. DATA VIRGO    d,12,55.6,3,23,3.38
  874. DATA CANES VE a,12,56.03,38,19,2.89
  875. DATA VIRGO    e,13,2.2,10,58,2.81
  876. DATA 42 com    ,13,7,17,47,5
  877. DATA HYDRA    c,13,18.9,-23,-11,3.02
  878. DATA CENTAURU i,13,20.6,-36,-43,2.76
  879. DATA URSA MA. g,13,23.93,54,56,2.4
  880. DATA VIRGO    a,13,25.2,-11,-9,0.96
  881. DATA HYDRA    r,13,29.7,-23,17,3.5
  882. DATA VIRGO    g,13,34.7,0,-36,3.36
  883. DATA CENTAURU e,13,39.9,-53,-28,2.3
  884. DATA CENTAURU n,13,49.5,-41,-41,3.4
  885. DATA URSA MA.et,13,47.53,49,19,1.86
  886. DATA CENTAURU m,13,49.6,-42,-29,3.47
  887. DATA CENTAURU g,13,55.53,-47,-18,2.54
  888. DATA BOOTES  et,13,54.41,18,24,2.69
  889. DATA CENTAURU b,14,3.8,-60,-22,0.59
  890. DATA HYDRA    p,14,6.4,-26,-41,3.25
  891. DATA CENTAURU f,14,6.7,-36,-23,2.05
  892. DATA BOOTES   a,14,15.7,19,11,0.06
  893. DATA BOOTES   c,14,32.1,38,19,3.03
  894. DATA CENTAURUet,14,35.5,-42,-9,2.35
  895. DATA CENTAURU a,14,39.6,-60,-50,0.33
  896. DATA CIRCINUS a,14,42.5,-64,-58,3.17
  897. DATA LUPUS    a,14,41.93,-47,-24,2.30
  898. DATA BOOTES   e,14,45,27,5,2.7
  899. DATA LIBRA    a,14,50.9,-16,-3,2.75
  900. DATA URSA MI. b,14,50.7,74,9,2.08
  901. DATA BOOTES  ch,14,52,19,19,4.7
  902. DATA LUPUS    b,14,58.53,-43,-8,2.67
  903. DATA CENTAURU k,14,59.15,-42,-6,3.12
  904. DATA LIBRA    s,15,4.07,-25,-17,3.3
  905. DATA BOOTES   i,15,5,47,51,5.3
  906. DATA LUPUS    g,15,12.3,-52,-6,3.4
  907. DATA TRIANG A c,15,18.9,-68,-41,2.88
  908. DATA BOOTES   d,15,15.5,33,19,3.5
  909. DATA LIBRA    b,15,17,-9,-23,2.61
  910. DATA LUPUS    d,15,21.36,-40,-39,3.21
  911. DATA LUPUS    e,15,22.68,-40,-42,3.36
  912. DATA URSA MI. c,15,20.73,71,50,3.07
  913. DATA CORONA Bet,15,24,30,28,5.6
  914. DATA DRACO    i,15,24.93,58,58,3.26
  915. DATA LUPUS    c,15,35.15,-41,-10,2.77
  916. DATA CORONA B a,15,34.41,26,43,2.23
  917. DATA SERPENS  a,15,44.3,6,25,2.65
  918. DATA TRIANG A b,15,55.15,-63,-26,2.84
  919. DATA SCORPIUS p,15,58.85,-26,-7,2.88
  920. DATA LUPUS   et,16,0.15,-38,-24,3.4
  921. DATA SCORPIUS d,16,0.3,-22,-37,2.32
  922. DATA CORONA B t,15,59.5,25,55,2
  923. DATA SCORPIUS b,16,5.45,-19,-48,2.63
  924. DATA OPHIUCH  d,16,14.35,-3,-41,2.72
  925. DATA CORONA B s,16,15,33,59,5.8
  926. DATA OPHIUCH  e,16,18.3,-4,-42,3.24
  927. DATA SCORPIUS s,16,21.2,-25,-35,2.93
  928. DATA DRACO   et,16,24,61,30,2.77
  929. DATA SCORPIUS a,16,29.4,-26,-26,1.08
  930. DATA HERCULES b,16,30.13,21,29,2.83
  931. DATA OPHIUCH  l,16,31,2,6,4.2
  932. DATA SCORPIUS t,16,35.9,-28,-13,2.82
  933. DATA OPHIUCH  g,16,37.15,-10,-34,2.56
  934. DATA HERCULES g,16,41.3,31,36,2.82
  935. DATA TRIANG A a,16,48.65,-69,-2,1.91
  936. DATA HERCULESet,16,42.9,38,56,3.47
  937. DATA SCORPIUS e,16,50.15,-34,-18,2.28
  938. DATA SCORPIUS m,16,51.85,-38,-3,3.14
  939. DATA ARA      g,16,58.65,-55,-59,3.12
  940. DATA OPHIUCH  k,16,57.44,9,23,3.31
  941. DATA DRACO    m,17,7,54,32,5.8
  942. DATA OPHIUCH et,17,10.4,-15,-43,2.44
  943. DATA SCORPIUSet,17,12.15,-43,-14,3.33
  944. DATA DRACO    g,17,8.8,65,43,3.2
  945. DATA HERCULES a,17,14.65,14,23,3.1
  946. DATA HERCULES d,17,15.05,24,50,3.14
  947. DATA HERCULES p,17,15.05,36,48,3.15
  948. DATA melb 4    ,17,17,-34,-56,6.1
  949. DATA OPHIUCH  f,17,22,-25,0,3.28
  950. DATA ARA      b,17,25.3,-55,-32,2.84
  951. DATA ARA      c,17,25.4,-56,-23,3.33
  952. DATA SCORPIUS y,17,30.75,-37,-18,2.7
  953. DATA ARA      a,17,31.85,-49,-53,2.94
  954. DATA SCORPIUS l,17,33.6,-37,-6,1.62
  955. DATA DRACO    b,17,30.45,52,19,2.87
  956. DATA SCORPIUS f,17,37.3,-43,0,1.88
  957. DATA OPHIUCH  a,17,34.95,12,34,2.08
  958. DATA SCORPIUS k,17,42.29,-39,-2,2.41
  959. DATA OPHIUCH  b,17,43.45,4,34,2.77
  960. DATA SCORPIUS i,17,47.35,-40,-7,2.98
  961. DATA HERCULES m,17,46.45,27,44,3.35
  962. DATA SCORPIUS g,17,49.85,-37,-3,3.2
  963. DATA OPHIUCH  n,17,59.02,-9,-47,3.34
  964. DATA DRACO    c,17,56.6,51,29,2.22
  965. DATA OPHIUCH 70,18,5,2,32,4.3
  966. DATA SAGITTA  c,18,5.8,-30,-26,2.98
  967. DATA SAGITTA et,18,17.65,-36,-46,3.12
  968. DATA SAGITTA  d,18,21,-29,-49,2.7
  969. DATA SERPENS et,18,21.3,-2,-53,3.26
  970. DATA SAGITTA  e,18,24.15,-34,-23,1.84
  971. DATA TELESCOP a,18,27,-45,-58,3.5
  972. DATA SAGITTA  l,18,27.95,-25,-26,2.84
  973. DATA LYRA     a,18,36.95,38,47,0.04
  974. DATA LYRA     e,18,45,39,34,5.1
  975. DATA SAGITTA ph,18,45.65,-27,0,3.18
  976. DATA LYRA     b,18,50.05,33,22,3.4
  977. DATA SAGITTA  s,18,55.25,-26,-18,2.1
  978. DATA LYRA     c,18,58.95,32,41,3.25
  979. DATA SAGITTA  g,19,2.6,-29,-52,2.6
  980. DATA CORONA A c,19,5,-37,-8,4.8
  981. DATA SAGITTA  t,19,6.95,-27,-40,3.32
  982. DATA AQUILA   g,19,5.4,13,52,2.99
  983. DATA AQUILA   l,19,6.25,-4,-53,3.44
  984. DATA SAGITTA  p,19,9.75,-21,-1,2.9
  985. DATA DRACO    d,19,12.55,67,40,3.1
  986. DATA AQUILA   d,19,25.5,3,7,3.36
  987. DATA CYGNUS   b,19,30.7,27,58,3.24
  988. DATA CYGNUS   d,19,45,45,0,3
  989. DATA AQUILA   c,19,46.25,10,37,2.62
  990. DATA CYGNUS   d,19,44.95,45,8,2.92
  991. DATA AQUILA   a,19,50.8,8,52,0.77
  992. DATA AQUILA  et,19,52.5,1,0,3.5
  993. DATA AQUILA   f,20,11.3,0,-49,3.24
  994. DATA CAPRICOR b,20,21,-14,-47,3.07
  995. DATA PAVO     a,20,25.64,-56,-44,1.93
  996. DATA CYGNUS   c,20,22.13,40,15,2.24
  997. DATA DELPHIN  b,20,37,14,25,4.1
  998. DATA INDUS    a,20,37.55,-47,-17,3.1
  999. DATA PAVO     b,20,44.95,-66,-12,3.42
  1000. DATA CYGNUS   a,20,41.44,45,16,1.26
  1001. DATA CYGNUS   e,20,46.2,33,58,2.45
  1002. DATA CEPHEUS et,20,45.3,61,50,3.43
  1003. DATA CYGNUS61  ,21,4.67,38,30,5.19
  1004. DATA CYGNUS  61,21,7,38,28,5.2
  1005. DATA CYGNUS   g,21,12.94,30,14,3.2
  1006. DATA -39g14192 ,21,14.33,-39,-3.7,6.72
  1007. DATA CYGNUS   t,21,15,37,49,3.8
  1008. DATA CEPHEUS  a,21,18.6,62,35,2.41
  1009. DATA AQUARIUS b,21,31.55,-5,-35,2.89
  1010. DATA CEPHEUS  b,21,28.65,70,33,3.18
  1011. DATA CAPRICOR c,21,37,-16,-53,3.8
  1012. DATA PEGASUS  e,21,44.2,9,53,2.42
  1013. DATA CAPRICOR d,21,47.2,-16,-8,2.83
  1014. DATA GRUS     c,21,53.95,-37,-22,3.0
  1015. DATA INDUS    e,21,59.55,-56,-59.6,4.73
  1016. DATA AQUARIUS a,22,5.85,0,-19,2.93
  1017. DATA GRUS     a,22,8.25,-46,-58,1.73
  1018. DATA CEPHEUS  g,22,10.58,58,12,3.36
  1019. DATA TUCANA   a,22,18.5,-60,-15,2.85
  1020. DATA AQUARIUS f,22,29,0,-17,4.4
  1021. DATA KRÜGER 60 ,22,29,57,27,9.9
  1022. DATA LACERTA  a,22,31,50,16,3.8
  1023. DATA PEGASUS  g,22,41.45,10,50,3.47
  1024. DATA GRUS     b,22,42.65,-46,-53,2.24
  1025. DATA PEGASUS et,22,43,30,13,2.96
  1026. DATA GRUS     e,22,48.55,-51,-19,3.48
  1027. DATA PEGASUS  m,22,50,24,36,3.5
  1028. DATA AQUARIUS d,22,54.65,-15,-49,3.29
  1029. DATA PISCES A a,22,57.65,-29,-37,1.16
  1030. DATA -36g15693 ,23,2.65,-36,-8.5,7.39
  1031. DATA PEGASUS  b,23,3.79,28,5,2.56
  1032. DATA PEGASUS  a,23,4.76,15,12,2.49
  1033. DATA ANDROMED l,23,37.5,46,28,4
  1034. DATA CEPHEUS  c,23,39.34,77,37,3.22
  1035. DATA     ,0,0,0,0,0
  1036.